home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / bbs_util / cidtool2.zip / CIDTOOL1.SCR < prev    next >
Text File  |  1996-06-01  |  4KB  |  141 lines
  1. CLS
  2. PUTNL "                             `0BC`03aller`0F-`03ID `0BT`03ool`0BB`03ox `0B2`0F.`0B01"
  3. PUTNL "                      `08By : Leon Kiriliuk    (c)1996"
  4. NL
  5. PUTNL "                      `0AUser Name          `0F: `02~UH"
  6. PUTNL "                      `0AUser ID Number     `0F: `02~UU"
  7. NL
  8. PUTNL "                      `0AData Phone Number  `0F: `02~UE"
  9. PUTNL "                      `0AVoice Phone Number `0F: `02~UD"
  10. NL
  11. PUTNL "                      `0DOpening Caller-ID Log  `0F[`0A√`0F]"
  12. PUTNL "                      `0DComparing numbers      `0F[`0A√`0F]"
  13. NL
  14. FILEEXIST C:\CIDTOOL\CIDOUT.1 GOTO NUMFOUND
  15. FILEEXIST C:\CIDTOOL\CIDOUT.2 GOTO VOICEFOUND
  16. FILEEXIST C:\CIDTOOL\CIDOUT.3 GOTO OUTOFAREA
  17. FILEEXIST C:\CIDTOOL\CIDOUT.4 GOTO NUMNOTF
  18. FILEEXIST C:\CIDTOOL\CIDOUT.5 GOTO OTHERU
  19. FILEEXIST C:\CIDTOOL\CIDOUT.6 GOTO SKIPUSER
  20. FILEEXIST C:\CIDTOOL\CIDOUT.255 GOTO ERRORFOUND
  21. GOTO ERRORFOUND
  22.  
  23. :NUMFOUND
  24. PUTNL "                     `0DNumbers   `03Match `0F[`0A√`0F]   `03Don't Match `0F[ `0F]"
  25. NL
  26. NL
  27. PUTNL "~SP"
  28. VALIDATE B
  29. COMMENT [──══ NORMAL USER ══──]
  30. CLS
  31. PUTNL "     `07You have just been validated on the BBS with our new Caller-ID"
  32. PUTNL "     `07facilities. Congratulations."
  33. NL
  34. PUTNL "     `07While staying on the BBS, please remember to follow proper conduct"
  35. PUTNL "     `07and as always, if you have any problems, leave the sysop a note."
  36. NL
  37. PUTNL "~SP"
  38. GOTO END
  39.  
  40. :VOICEFOUND
  41. PUTNL "                     `0DNumbers   `03Match `0F[ `0F]   `03Don't Match `0F[`8C√`0F]"
  42. NL
  43. PUTNL "                     `0DVoice Number   `03Match `0F[`0A√`0F]"
  44. NL
  45. PUTNL "~SP"
  46. COMMENT [──══ UNVALIDATED USER ══──]
  47. CLS
  48. NL
  49. NL
  50. PUTNL "`07  Your Data phone number does not match, yet your voice number"
  51. PUTNL "`07Does. If you plan on using it, leave a message to the"
  52. PUTNL "`07SysOp telling him so. This way you will be validated!"
  53. NL
  54. PUTNL "`8F             FAILURE TO DO SO WILL RESULT IN YOUR REMOVAL!"
  55. NL
  56. PUTNL "~SP"
  57. GOTO END
  58.  
  59. :OUTOFAREA
  60. CLS
  61. PUTNL ""
  62. PUTNL ""
  63. PUTNL "`07Due to security reasons, this system does not accept calls from;"
  64. PUTNL "`07I) UNKNOWN NAME/NUMBER, II) PRIVATE NUMBER, and III) BLOCKED NUMBER."
  65. PUTNL ""
  66. PUTNL "`07Disable your call-blocking feature, and call direct."
  67. PUTNL ""
  68. PUTNL "~SW"
  69. COMMENT [──══ UNVALIDATED USER ══──]
  70. HANGUP
  71. GOTO END
  72.  
  73. :NUMNOTF
  74. PUTNL "                     `0DNumbers   `03Match `0F[ `0F]   `03Don't Match `0F[`8C√`0F]"
  75. NL
  76. NL
  77. PUTNL "~SP"
  78. COMMENT [──══ UNVALIDATED USER ══──]
  79. CLS
  80. NL
  81. PUTNL "`07CID checks reveal that the data/voice# for this account does not match
  82. PUTNL "`07that of the one recorded by caller-id."
  83. NL
  84. PUTNL "`07Due to security reasons, this system does not permit users calling from"
  85. PUTNL "`07numbers other than the ones we have on record.  This system is designed to"
  86. PUTNL "`07allow access to the owner of the account, and no one else."
  87. NL
  88. PUTNL "`07Please call back in 24 hours, at which point your account will be"
  89. PUTNL "`07deleted and you will be able to login as new AGAIN.  At that point"
  90. PUTNL "`07DO give use your REAL number!"
  91. NL
  92. PUTNL "~SP"
  93. VALIDATE D
  94. COMMENT [──══ DELETED USER ══──]
  95. HANGUP
  96. GOTO END
  97.  
  98. :OTHERU
  99. PUTNL "`0D        CID Detected another user with the same phone number!"
  100. NL
  101. PUTNL "~SP"
  102. COMMENT [──══ DUPLICATE USER ══──]
  103. CLS
  104. NL
  105. NL
  106. PUTNL "`07    Another user on this system is already using this phone number."
  107. PUTNL "`07  We no longer allow duplicate accounts. (Except in special cases)"
  108. NL
  109. PUTNL "`07You may leave the sysop a message now, at which point afterwards, the"
  110. PUTNL "`07system will hang up on you.
  111. NL
  112. PUTNL "`07NOTE: In the message, you might want to tell the sysop why this occured"
  113. PUTNL "`07      any changes you want the sysop to do, or a reason why the system"
  114. PUTNL "`07      should by-pass the CID routine over your account on your next call."
  115. NL
  116. PUTNL "~SP"
  117. MENU ME Sysop;CID-Failure : Dupe users.
  118. HANGUP
  119. GOTO END
  120.  
  121. :SKIPUSER
  122. PUTNL "`0D        CID Detected that your number should be skipped over!"
  123. NL
  124. PUTNL "`0D        Have a nice day."
  125. NL
  126. PUTNL "~SP"
  127. VALIDATE B
  128. COMMENT [──══ NORMAL USER ══──]
  129. GOTO END
  130.  
  131. :ERRORFOUND
  132. PUTNL "`8F        ERROR occured while executing. Please inform the SysOp!"
  133. NL
  134. NL
  135. PUTNL "~SP"
  136. COMMENT [──══ ERROR OCCURED ══──]
  137. GOTO END
  138.  
  139. :END
  140. ENDSCRIPT
  141.